-- background: 3165 from stack: in.0
-- bmap block id: 9600
-- flags: 4000
-- background id: 0
-- name: Label
----- HyperTalk script -----
on copyOld
  -- for each label card add the card to the index
  go to first card of background "old Label"
  put the number of first card of this background into firstcard
  put the number of last card of this background into lastcard
  repeat with label = firstcard to lastcard
    go to card label
    choose select tool
    drag from 17,103 to 216,302
    doMenu Copy Picture
    send "mouseUp" to background button "New label"
    doMenu Paste Picture
    drag from 17,103 to 20,70
  end repeat

end copyOld


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=290 right=340 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=52 top=290 right=340 bottom=102
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: new label
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  go to last card of background "Label"
  doMenu "New Card"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=104 top=290 right=340 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index
----- HyperTalk script -----
on mouseUp
  go to first card of background "Index"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=462 top=290 right=340 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to next card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=208 top=290 right=340 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 26884 / 26884
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: add icon
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  push card
  go to first card of background "icons"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=156 top=290 right=340 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: insert
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  -- determine id of this card
  put word 7 of long name of the target into thiscard
  -- create mouseUp script to get this card
  put "on mouseUp" into line 1 of callback
  put "push card" into line 2 of callback
  put "go to card id " into line 3 of callback
  put thiscard after line 3 of callback
  put "end mouseUp" into line 4 of callback
  -- get the picture
  choose select tool
  drag from 20,70 to 220,272
  doMenu Copy Picture
  -- make the button
  go to last card of background "Index"
  choose button tool
  doMenu New Button
  -- number of button used to determine where on the index page to place
  get number of button "New Button"
  put 20 + ((it - 1) mod 4) * 120 into x
  put 55 + ((it - 1) div 4) * 120 into y
  put it into thebutton
  set showName of button "New Button" to false
  set style of button "New Button" to transparent
  set rectangle of button "New Button" to x,y,x+99,y+99
  set autoHilite of button "New Button" to false
  set script of button "New Button" to callback
  set name of button "New Button" to thiscard
  -- paste the picture
  choose select tool
  doMenu paste picture
  drag from 20,70 to 120,170 with commandKey -- shrink to half
  drag from 120,170 to x,y
  -- is the index full?
  if thebutton = 8 then
    doMenu New Card
  end if
  go to card id thiscard
  choose browse tool
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=260 top=290 right=340 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: catalog
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  push card
  go to first card of background "volumes"
  put volumes() into field "volumes"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=311 top=290 right=340 bottom=361
-- title width / last selected line: 65535
-- icon id / first selected line: -6047 / 59489
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: no border
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  global printstyle
  put short name of the target into name
  if name = "border" then
    set name of target to "no border"
    put "no border" into printstyle
  else
    set name of target to "border"
    put "border" into printstyle
  end if
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=363 top=290 right=340 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: print
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  hide msg
  global printstyle
  if printstyle = "border" then
    printrect 20,70,220,272
  else
    printrect 21,71,219,271
  end if
end mouseUp



-- part 15 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=251 top=67 right=267 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  put line ClickLine() of bkgnd field "Description" after card field "Contents"
  put return after card field "Contents"
end mouseUp


-- part 16 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=258 top=220 right=285 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: author


-- part 17 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=415 top=290 right=340 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: author
----- HyperTalk script -----
-- Script by Chris Christensen written for HyperLabels
on mouseUp
  if visible of background field "author" is true
  then
  hide background field "author"
else
  show background field "author"
end if
end mouseUp